home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TASMSWAN.ZIP
/
FILLSTR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-07-17
|
255b
|
15 lines
PROGRAM FillStr;
{ Test using the FillString external function }
VAR s : String;
FUNCTION FillString( n : Byte; ch : Char ) : String; EXTERNAL;
{$L FILLSTR.OBJ }
BEGIN
s := FillString( 45, '@' );
Writeln( 'After filling: ', s)
END.